home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / T-TPUG Old Monthly Disks / (c)t8.d64 / laracters demo.c (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  3KB  |  54 lines
  1. 0 PRINT"[147] LARACTERS":Q=159:DIMQ$(Q),C$(16):PRINTCHR$(14):GOSUB8:GOTO90
  2. 1 PRINT"";:FORI=0TOV:PRINT"";:NEXT:FORI=0TOH:PRINT"";:NEXT:RETURN
  3. 2 FORI=0TO3:FORJ=1TO4:H$=MID$(Q$(C),I*4+J,1):GOSUB5:PRINTC$(H+D*(2*H-15));
  4. 3 NEXT:PRINT"[157][157][157][157]";:NEXT:PRINT"[145][145][145][145]";:K=K+1:IFK>9THENK=0:PRINT"";
  5. 4 RETURN
  6. 5 H=0:FORH1=1TOLEN(H$):H9=ASC(MID$(H$,H1))-48:H=H*16+H9+(H9>9)*7:NEXT:RETURN
  7. 6 FORW=1TOLEN(X$):C=ASC(MID$(X$,W))-64:C=C-(C<0)*64:GOSUB2:NEXT
  8. 7 RETURN
  9. 8 POKE53280,0:POKE53281,0:RETURN
  10. 90 FORI=0TO15:C$(I)=MID$("[146] [146][190][146][188][162][146][187][146][161][191][172][146][172][146][191][161][187][146][162][188][190] ",I*2+1,2):NEXT
  11. 91 FORI=0TO159:READQ$(I):NEXT
  12. 100 PRINT" REVERSED ";:INPUTD$:D=-1:IFD$<>"Y"THEND=0
  13. 101 PRINT"[147]";:FORC=0TO159:GOSUB2:NEXT
  14. 10000 DATA0634A89524300231,0690ACC5A0052001,27340DC105052330,0634A00024040230
  15. 10001 DATA2790050505812310,A331AC40A0002331,A331AC40A0002000,0634A0C424050230
  16. 10002 DATAA005ACC5A0052001,0270005000500230,00B100A080A00310,A081AC10A0902001
  17. 10003 DATAA000A000A0002331,A485AA55A0052001,A405A245A0252001,0690A00524810210
  18. 10004 DATAA334ACC1A0002000,0690A00524910211,A334ACC1A0902001,83342CC080050330
  19. 10005 DATA0371005000500010,A005A005A0050330,A005248109600210,A005A845A6952001
  20. 10006 DATAA005096081242001,050509C100500010,2335086081002331,0730050005000330
  21. 10007 DATA8000090000900001,03B000A000A00330,0040067400500050,0000060027330200
  22. 10008 DATA0000000000000000,0050005000000010,05A0012000000000,05A027B127B10120
  23. 10009 DATA08D409D00CD10010,8404216006842021,83402C10A0910311,0060020000000000
  24. 10010 DATA00600A0002400020,0900005008100100,04540EF406740010,00400CD400500000
  25. 10011 DATA0000000000400810,00008CC400000000,0000000008400210,0004006006002000
  26. 10012 DATA8334A865A1050330,0850015000500331,833400C183002331,833408C180050330
  27. 10013 DATA00E006A023B10020,A331239080810310,0630ACC0A0050330,A33500600A000200
  28. 10014 DATA83342CC1A0050330,83342CC500810310,0000001000400000,0000001000400810
  29. 10015 DATA087187000B400031,0000233123310000,2B4000B408702300,833400C102000200
  30. 10016 DATA0000000033330000,08D08FFD2BF30331,0A000A000A000A00,0000CCCC00000000
  31. 10017 DATA0000333300000000,CCCC000000000000,00000000CCCC0000,0500050005000500
  32. 10018 DATA00A000A000A000A0,0000000034000A00,0050009000030000,0A00060030000000
  33. 10019 DATA500050005000DCCC,9000090000900009,0006006006006000,7333500050005000
  34. 10020 DATA333B000A000A000A,0CC0AFF5AFF50330,0000000000003333,8FEDAFFF0BF10010
  35. 10021 DATAA000A000A000A000,0000000000830050,9006096006906009,0CC0A005A0050330
  36. 10022 DATA08D08D9D01510010,0005000500050005,08D08FFD0BF10010,0050005033730050
  37. 10023 DATA9900990099009900,0050005000500050,00000CC62AA00220,BFFF0BFF00BF000B
  38. 10024 DATA0000000000000000,FF00FF00FF00FF00,00000000FFFFFFFF,3333000000000000
  39. 10025 DATA000000000000CCCC,5000500050005000,9999999999999999,000A000A000A000A
  40. 10026 DATA0000000099999999,FFF7FF70F7007000,000F000F000F000F,0050005000730050
  41. 10027 DATA0000000000FF00FF,0050005000330000,0000000033500050,000000000000FFFF
  42. 10028 DATA0000000000730050,0050005033330000,0000000033730050,0050005033500050
  43. 10029 DATAF000F000F000F000,F500F500F500F500,00AF00AF00AF00AF,FFFF000000000000
  44. 10030 DATAFFFF333300000000,00000000CCCCFFFF,000A000A000ACCCE,00000000FF00FF00
  45. 10031 DATA00FF00FF00000000,0050005033100000,FF00FF0000000000,FF00FF0000FF00FF
  46. 10032 DATA08900E400A042330,0000039083B00311,A000A634A4052230,00008334A0040330
  47. 10033 DATA00058395A0850311,00008334A3310330,08348EC00A000200,000083952C650CC1
  48. 10034 DATAA000A634A0052001,0010025000500210,00010025000509C1,A000A060A6402020
  49. 10035 DATA0250005000500230,0000A364A0552011,0000A634A0052001,00008334A0050330
  50. 10036 DATA0000A634A9C1A000,000083952C650005,0000A634A0002000,0000833103342330
  51. 10037 DATA0A002B300A080030,0000A005A0850311,0000A00524810210,0000A04AA05A0321
  52. 10038 DATA0000248106902001,0000A0052C650CC1,000023B106102331,F0F00F0FF0F00F0F
  53. 10039 DATAB4B44B4BB4B44B4B,1E1EE1E11E1EE1E1,0006A060A6002000,8004A40522302000
  54.